home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Demoversionen / Anwendungen / TCom2Demo / Installa < prev    next >
Text File  |  2000-05-02  |  1KB  |  54 lines
  1. ;
  2. ; $VER: Script di Installazione di TurboCommesse v2 (c) David Lo Buglio (02.05.00)
  3. ;
  4.  
  5. (set @default-dest "Work:")
  6. (set #wrongOS  "TurboCommesse necessita dell'OS2.0 o superiore\n")
  7. (set #TGest_dir       (cat "Scegli il cassetto o la partizione\n"
  8.                            "dove installare il cassetto TGest.\n\n"
  9.                            "Se il cassetto esiste già, allora seleziona\n"
  10.                            "il cassetto o la partizione che lo contiene\n"))
  11.  
  12. (set #done (cat "\nTurboCommesse è stato installato con successo.\n\n"))
  13.  
  14. (set OS_ver (getversion "exec.library" (resident)))
  15. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  16.  
  17. (complete 0)
  18.  
  19. (set TGest_def_dir @default-dest)
  20.  
  21. (set TGest_dir
  22.         (askdir
  23.                 (default TGest_def_dir)
  24.                 (prompt  #TGest_dir)
  25.                 (help    @askdir-help)
  26.         )
  27. )
  28.  
  29. (set TGest_dir (tackon TGest_dir "TGest"))
  30.  
  31. (if (not (exists TGest_dir))
  32.         (makedir TGest_dir (infos))
  33. )
  34.  
  35. (if (NOT (exists (tackon TGest_dir "Doc")))
  36.    (
  37.       (makedir (tackon TGest_dir "Doc") (infos))
  38.    )
  39. )
  40. (complete 20)
  41.  
  42. (set Doc_dir (tackon TGest_dir "Doc"))
  43.  
  44. (copyfiles (source "TCom2DEMO") (dest TGest_dir) (infos) (help @copyfiles-help))
  45. (complete 90)
  46.  
  47. (copyfiles (source "Doc/")      (dest Doc_dir) (all) (help @copyfiles-help))
  48. (complete 100)
  49.  
  50. (message #done "\"" TGest_dir "\"")
  51.  
  52. (exit (QUIET))
  53.  
  54.